﻿#VisualFreeBasic_Form#  Version=5.9.0
Locked=0

[Form]
Name=Form3
ClassStyle=CS_VREDRAW,CS_HREDRAW,CS_DBLCLKS
ClassName=
WinStyle=WS_SYSMENU,WS_MINIMIZEBOX,WS_MAXIMIZEBOX,WS_VISIBLE,WS_EX_CONTROLPARENT,WS_EX_LEFT,WS_EX_LTRREADING,WS_EX_RIGHTSCROLLBAR,WS_CLIPSIBLINGS,WS_CLIPCHILDREN,WS_POPUP
Style=0 - 无边框
Icon=
Caption=
StartPosition=1 - 屏幕中心
WindowState=0 - 正常
Enabled=True
Repeat=False
Left=0
Top=0
Width=420
Height=31
TopMost=False
Child=False
MdiChild=False
TitleBar=False
SizeBox=False
SysMenu=True
MaximizeBox=True
MinimizeBox=True
Help=False
Hscroll=False
Vscroll=False
MinWidth=0
MinHeight=0
MaxWidth=0
MaxHeight=0
NoActivate=False
MousePass=False
TransPer=0
TransColor=SYS,25
Shadow=0 - 无阴影
BackColor=SYS,15
MousePointer=0 - 默认
Tag=
Tab=True
ToolTip=
ToolTipBalloon=False
AcceptFiles=False

[YFbunGroup]
Name=YFbunGroup1
Index=-1
Style=0 - 无边框
BunStyle=0 - 水平
BunSizeW=-1
BunSizeH=-1
BunForm=0 - 无框
BunCircular=0
Button=Form3_YFbunGroup1_Button_1画笔颜色000-1-1-1-1-1-1-1-1-1Form3_YFbunGroup1_Button_21280x720000-1-1-1-1-1-1-1-1-1Form3_YFbunGroup1_Button_31920x1080000-1-1-1-1-1-1-1-1-1
Enabled=True
Visible=True
ForeColor=RGB(255,255,255)
BackColor=RGB(0,77,77)
ColorSel=RGB(102,178,255)
ColorSelTxt=RGB(0,0,0)
ColorMove=RGB(0,153,153)
Font=微软雅黑,9,0
IcoSize=16
Spaces=5
Left=50
Top=5
Width=185
Height=20
Layout=0 - 不锚定
MousePointer=0 - 默认
Tag=
Tab=True
ToolTip=
ToolTipBalloon=False
AcceptFiles=False


[AllCode]
'这是标准的工程模版，你也可做自己的模版。
'写好工程，复制全部文件到VFB软件文件夹里【template】里即可，子文件夹名为 VFB新建工程里显示的名称
'快去打造属于你自己的工程模版吧。

'[Form3]事件 : 窗口完全显示后。
'hWndForm  当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码)
'UserData  来自显示窗口最后1个参数，例： Form2.Show(父窗口句柄,模式,UserData)
Sub Form3_Shown(hWndForm As hWnd,UserData As Integer)


End Sub

'[Form3]事件 : 窗口已经改变了大小
'hWndForm  当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码)
'fwSizeType = SIZE_MAXHIDE     SIZE_MAXIMIZED   SIZE_MAXSHOW    SIZE_MINIMIZED    SIZE_RESTORED  
''            其他窗口最大化   窗口已最大化     其他窗口恢复    窗口已最小化      窗口已调整大小
'nWidth nHeight  是客户区大小，不是全部窗口大小。
Sub Form3_WM_Size(hWndForm As hWnd, fwSizeType As Long, nWidth As Long, nHeight As Long)
   if fwSizeType = SIZE_MINIMIZED Then Return 
   'xxx.Move AfxScaleX(5), AfxScaleY(5), nWidth - AfxScaleX(10), nHeight - AfxScaleY(30)
YFbunGroup1.Move(0,0,nWidth,nHeight)


End Sub

'[Form3.YFbunGroup1]事件 : 点击了某个按钮
'hWndForm  当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码)
'nID       按钮号，鼠标点击了某个按钮，就是点击后释放鼠标时触发
Function Form3_YFbunGroup1_Command(hWndForm As hWnd, hWndControl As hWnd, nID As Long) As Long
   
   Select Case nID
      Case Form3_YFbunGroup1_Button_1 ' 画笔颜色
          Form1.PopupMenu1.PopupMenu 
      Case Form3_YFbunGroup1_Button_2 ' 窗口大小
         Dim As Rect rc1, rc2
         GetWindowRect(Form1.Picture1.hWnd, @rc2)
         GetWindowRect(Form1.hWnd, @rc1)
            Form1.Move rc1.Left, rc1.top, 1280 + ((rc1.Right - rc1.Left) - (rc2.Right - rc2.Left)), 720 + ((rc1.bottom - rc1.top) - (rc2.bottom - rc2.top))
      Case Form3_YFbunGroup1_Button_3 ' 窗口大小
         Dim As Rect rc1, rc2
         GetWindowRect(Form1.Picture1.hWnd, @rc2)
         GetWindowRect(Form1.hWnd, @rc1)
            Form1.Move rc1.Left, rc1.top, 1920 + ((rc1.Right - rc1.Left) - (rc2.Right - rc2.Left)), 1080 + ((rc1.bottom - rc1.top) - (rc2.bottom - rc2.top))
         
   End Select
   
   Function = TRUE '  如果你处理了事件，就返回 Return TRUE ,控件就不进行默认处理了。
   
End Function







